home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tptc17sc.zip / LJUST.INC < prev    next >
Text File  |  1988-03-25  |  219b  |  16 lines

  1.  
  2. (*
  3.  * ljust - macro for left justified strings in writeln format
  4.  *
  5.  *)
  6.  
  7. function ljust(s: string; w: integer): string;
  8. begin
  9.    repeat
  10.       s := s + ' ';
  11.    until length(s) >= w;
  12.  
  13.    ljust := s;
  14. end;
  15.  
  16.